home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / disk / misc / File2Disk.lha / file2disk / Install < prev    next >
Text File  |  1997-08-19  |  894b  |  41 lines
  1. ;
  2. ; File2Disk installer Script - by Software Failure/Airsoft
  3. ;
  4. ; if there are any problems, email me: softwarefailure@dame.de
  5. ;
  6.  
  7. (message (cat "\n\nFile2Disk V1.0 \n\n(c) 1997 by\n\nAndreas Falkenhahn\n\nFile2Disk is an Airsoft product."
  8.          )
  9. )
  10.  
  11. (welcome)
  12.  
  13. (set #whereinstall "Select destination for the program") 
  14. (set #whereinstall1 "Select destination for the documentation") 
  15.  
  16. (set #whereinstall_help "No help available")
  17.  
  18. (set desti
  19.         (askdir
  20.                 (prompt #whereinstall)
  21.                 (help #whereinstall_help)
  22.                 (default "C:")
  23.         )
  24. )
  25.  
  26. (copyfiles (source "File2Disk")
  27.            (dest desti))
  28.  
  29. (set dest1
  30.      (askdir
  31.             (prompt #whereinstall1)
  32.             (help #whereinstall_help)
  33.             (default "Help:")
  34.      )
  35. )
  36.  
  37. (copyfiles (source "File2Disk.doc") (dest dest1))
  38. (copyfiles (source "File2Disk.doc.info") (dest dest1))
  39.  
  40. (exit)
  41.